home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / funbasic.arc / CLOCK.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.1 KB  |  49 lines
  1. 10  CLS:KEY OFF:SCREEN 1
  2. 20  COLOR 1,1:R=40:PI=3.14593
  3. 30  MINUTE = VAL(MID$(TIME$,4,2))
  4. 40  HOUR = VAL(MID$(TIME$,1,2))
  5. 50  CIRCLE(160,50),R
  6. 60  CIRCLE(160,50),2
  7. 70  LINE(210,10)-(210,180)
  8. 80  LINE(110,10)-(110,180)
  9. 90  LINE(110,10)-(210,10)
  10. 100  LINE(110,180)-(210,180)
  11. 110  LINE(110,90)-(210,90)
  12. 120  LINE(110,92)-(210,92)
  13. 130  LINE(160,21)-(160,25)
  14. 140  LINE(160,74)-(160,78)
  15. 150  LINE(127,50)-(131,50)
  16. 160  LINE(189,50)-(193,50)
  17. 170  PAINT (209,13)
  18. 180  LINE(161,92)-(161,160)
  19. 190  LINE(160,92)-(160,160)
  20. 200  LINE(159,92)-(159,160)
  21. 210  CIRCLE(160,169),10
  22. 220  CIRCLE(160,169),4
  23. 230  PAINT(160,165)
  24. 240  LOCATE 1,16:PRINT DATE$
  25. 250  R1=R*(3/4):R2=R1*(3/4)
  26. 260  MHOLD = MINUTE
  27. 270  ANGLE = (PI/2) - (MINUTE * (PI/30))
  28. 280  ANGLE2 = (PI/2) - (HOUR * (PI/6)) - (MINUTE * (PI/360))
  29. 290  X1 = R1 * COS(ANGLE)
  30. 300  Y1 = (5/6) * R1 * SIN(ANGLE)
  31. 310  LINE(160,50) - (160 + X1,50 - Y1),2
  32. 320  X2 = R2 * COS(ANGLE2)
  33. 330  Y2 = (5/6) * R2 * SIN(ANGLE2)
  34. 340  LINE(160,50) - (160 + X2,50 - Y2),1
  35. 350  GOSUB 410
  36. 360  IF MINUTE=0 AND SECOND=0 THEN 370 ELSE 390
  37. 370  IF HOUR>12 THEN HOUR=HOUR-12
  38. 380  FOR K=1 TO HOUR:PLAY "MB O1 L2 C P4":NEXT K
  39. 390  GOTO 260
  40. 400  END
  41. 410  MINUTE = VAL(MID$(TIME$,4,2))
  42. 420  SECOND = VAL(MID$(TIME$,7,2))
  43. 430  HOUR   = VAL(MID$(TIME$,1,2))
  44. 440  IF INKEY$ = "" THEN 450 ELSE END
  45. 450  IF MINUTE = MHOLD THEN 410
  46. 460  LINE(160+X1,50-Y1) - (160,50),0
  47. 470  LINE(160+X2,50-Y2) - (160,50),0
  48. 480  RETURN
  49.